unit CodeSiteUtils;

interface

uses
  CodeSiteLogging;

procedure CodeSite_Send( aMsgGubun : Integer; const aMSg : String ); overload;
procedure CodeSite_Send( aMsgGubun : Integer; const aMSg : String; const Args: array of const ); overload;

implementation

procedure CodeSite_Send( aMsgGubun : Integer; const aMSg : String );
begin

  if aMsgGubun = 0 then
  begin
    CodeSite.Send( aMSg );
  end else if aMsgGubun = 1 then
  begin
    CodeSite.SendError( aMSg );
  end else if aMsgGubun = 2 then
  begin
    CodeSite.SendWarning( aMSg );
  end else begin
    CodeSite.Send( aMSg );
  end;

end;
procedure CodeSite_Send( aMsgGubun : Integer; const aMSg : String; const Args: array of const );
begin
  if aMsgGubun = 0 then
  begin
    CodeSite.Send( aMSg, Args );
  end else if aMsgGubun = 1 then
  begin
    CodeSite.SendError( aMSg, Args );
  end else if aMsgGubun = 2 then
  begin
    CodeSite.SendWarning( aMSg, Args );
  end else begin
    CodeSite.Send( aMSg, Args );
  end;

end;
end.

